home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 2 / Mac Magazin and MacEasy Magazine CD - Issue 02.iso / Sharewarebibliothek / Applikationen / working-watermaker-demo-106 / Working Watermarker™ Demo / Working Watermarker™ Demo.rsrc / TEXT_-4047_PM5 First Only.txt < prev    next >
Text File  |  1994-07-11  |  1KB  |  116 lines
  1.  
  2. /WMDevList [ 
  3. (11.13x15.3)
  4. (11.67x45)
  5. (110x220envelope)
  6. (11x17)
  7. (12.69x17.52)
  8. (12.69x17.53)
  9. (12x18)
  10. (13.33x22.75)
  11. (162x229envelope)
  12. (176x250envelope)
  13. (17x11)
  14. (18x12)
  15. (18x22)
  16. (18x24)
  17. (18x64)
  18. (26x20)
  19. (3.875x7.5)
  20. (3.875x7.5envelope)
  21. (3.875x8.875envelope)
  22. (35mm)
  23. (3x4)
  24. (4.125x9.5)
  25. (4.125x9.5envelope)
  26. (4x5)
  27. (5.5x8.5)
  28. (6.83x9.26)
  29. (7x9)
  30. (8.16x11.125)
  31. (8.5x13)
  32. (8x10)
  33. (9.26x12.69)
  34. (9.5x12)
  35. (9.5x15)
  36. (A3)
  37. (A4)
  38. (A5)
  39. (B4)
  40. (B5)
  41. (Legal)
  42. (Letter)
  43. (Tabloid)
  44. (a3)
  45. (a4)
  46. (a4.transverse)
  47. (a4R)
  48. (a4long)
  49. (a4small)
  50. (a5)
  51. (a6)
  52. (aplus)
  53. (asuper)
  54. (b4)
  55. (b5)
  56. (b5.transverse)
  57. (b5R)
  58. (b6)
  59. (berliner)
  60. (bplus)
  61. (bsuper)
  62. (c5)
  63. (c5envelope)
  64. (com10)
  65. (com10envelope)
  66. (dl)
  67. (dlenvelope)
  68. (envelope)
  69. (execpaper)
  70. (executive)
  71. (executivepage)
  72. (f4)
  73. (flsa)
  74. (flse)
  75. (folio)
  76. (fulla4)
  77. (glg)
  78. (glt)
  79. (hagaki)
  80. (halfletter)
  81. (ledger)
  82. (legal)
  83. (legalsmall)
  84. (letter)
  85. (letter.transverse)
  86. (letterR)
  87. (lettersmall)
  88. (monarcenvelope)
  89. (monarch)
  90. (otherenvelope)
  91. (postcard)
  92. (spa4)
  93. (speciala4)
  94. (spletter)
  95.  ] def
  96.  
  97. WMDevList { /myStr 2 1 roll def
  98.  myStr cvlit userdict 2 1 roll known {
  99.  /oldLitName 30 string def
  100.  (/OldWM) /oldLitName load copy pop 
  101.  /oldLitName load 6 myStr putinterval
  102.  oldLitName cvlit userdict myStr cvlit get def
  103.  userdict myStr cvlit {
  104.    oldLitName cvx exec WMDrawMark 
  105.   } put
  106.  } if
  107. } forall
  108.  
  109. systemdict /setpagedevice known {
  110.  /OldWMSetPage systemdict /setpagedevice get def
  111.  userdict /setpagedevice { OldWMSetPage WMDrawMark } put
  112. } if
  113.  
  114.  
  115. psb
  116.